Ì i 2
rxm.oe.proc.exp (exceptions)
[proc.exp.db,proc.exp.fac,proc.exp.cat,proc.exp.order.type,proc.exp.date,proc.exp.time,proc.exp.user] = proc.name
&HXEX[hxexD,hxexF,hxexC,hxzt,hxexd,hxext,gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.exp.db 12 FREE L MIS.APPL hxexD
proc.exp.fac 10 FREE L MIS.FACILITY hxexF
proc.exp.cat 10 FREE L OE.CAT hxexC
proc.exp.order.type 10 FREE L RXM.ORD.TYPE hxzt
proc.exp.date 10 DATE10 L hxexd
proc.exp.time 4 HHMM L hxext
proc.exp.user 10 FREE L MIS.USER gu
Ì € i 2
rxm.oe.proc.exceptions (proc.exceptions)
[proc.exp.db,proc.exp.fac,proc.exp.cat,proc.exp.order.type,proc.exp.date,proc.exp.time,proc.exp.user]= proc.nam, proc.e
&HXEX[hxexD,hxexF,hxexC,hxzt,hxexd,hxext,gu]P[hxexc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.exp.count 5 PINT R hxexc
proc.exp.mne 10 FREE L &HXEX[hxexD,hxexF,hxexC,hxzt,hxexd,hxext,gu]P[hxexc]|0
proc.exp.name 30 FREE L &HXEX[hxexD,hxexF,hxexC,hxzt,hxexd,hxext,gu]P[hxexc]|1
Ì i 2
rxm.amb.procedure.dict (main)
[mnemonic]
&HXE[hxe]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L hxe
active 1 YN L &HXE[hxe]|0
description 30 FREE L &HXE[hxe]|1
dft.display.name 20 FREE L &HXE[hxe]|2
duplicate.time 6 FREE L &HXE[hxe]|5
keyword 30 FREE L
last.update 10 FREE L &HXE[hxe]UPD|0
last.update.date 8 DATE L VAL=%Z.date.in.magic(@last.update)
last.update.date.time 15 FREE L VAL=%Z.date.out(@last.update.date,"",10)_"-"_@last.upd
VAL=ate.time'="-"
last.update.time 4 HHMM L VAL=%Z.time.out(@last.update)
last.update.user 10 FREE L MIS.USER &HXE[hxe]UPD|1
order.type 10 FREE L RXM.ORD.TYPE &HXE[hxe]|3
referral.service 10 FREE L MIS.ABS.SVC &HXE[hxe]|6
Ì € i 2
rxm.proc.cpt.codes (cpt.codes)
[mnemonic, cpt.code]
&HXE[hxe]C[gsp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cpt.code 10 FREE L gsp
Ì € i 2
rxm.proc.dict.diagnoses (diagnoses)
[mnemonic, diag.code]
&HXE[hxe]DX[gsn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.code 7 FREE L MIS.DIAG gsn
Ì € i 2
rxm.proc.dict.facilities (facilities)
[mnemonic, facility]
&HXE[hxe]F[gqb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
facility 10 FREE L MIS.FACILITY gqb
Ì € i 2
rxm.proc.dict.locations (locations)
[mnemonic,facility, location]
&HXE[hxe]F[gqb]L[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
location 10 FREE L MIS.LOCN.DICT ggn
checkout 1 YN L &HXE[hxe]F[gqb]L[ggn]|8
confidential 1 YN L &HXE[hxe]F[gqb]L[ggn]|0
dft.enforce.req 1 YN L &HXE[hxe]F[gqb]L[ggn]|11
dft.order.period 10 FREE L RXM.ORD.PERIOD &HXE[hxe]F[gqb]L[ggn]|1
dft.perf.site 10 FREE L &HXE[hxe]F[gqb]L[ggn]|2
modifier.screen 15 FREE L MIS.SCREEN &HXE[hxe]F[gqb]L[ggn]|4
oe.category 10 FREE L OE.CAT &HXE[hxe]F[gqb]L[ggn]|5
oe.procedure 10 DEC R OE.PROC &HXE[hxe]F[gqb]L[ggn]|6
oe.procedure.mnemonic 10 FREE L &HXE[hxe]F[gqb]L[ggn]|7
phy.enforce.req 1 YN L &HXE[hxe]F[gqb]L[ggn]|10
phy.modifier.screen 15 FREE L MIS.SCREEN &HXE[hxe]F[gqb]L[ggn]|9
query.edit 1 YN L VAL=LOCAL
query.edit.flag 1 FREE L VAL=IF{%RXM.PROC.ee.M.check.qry.data("") @Z.check.mark
VAL=.data}
query.screen 15 FREE L MIS.SCREEN &HXE[hxe]F[gqb]L[ggn]|3
Ì € i 2
rxm.proc.dict.default.queries (dft.queries)
[mnemonic,facility,location, dft.query]
&HXE[hxe]F[gqb]L[ggn]DQ[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.query 10 FREE L MIS.QUERY ggv
dft.query.response 60 FREE L &HXE[hxe]F[gqb]L[ggn]DQ[ggv]|0
Ì € i 2
rxm.proc.dict.print.formats (print.formats)
[mnemonic,facility,location, prt.format.seq]
&HXE[hxe]F[gqb]L[ggn]PF[hxePQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prt.format.seq 2 PINT R hxePQ
destination 15 FREE L &HXE[hxe]F[gqb]L[ggn]PF[hxePQ]|1
num.copies 2 PINT R &HXE[hxe]F[gqb]L[ggn]PF[hxePQ]|2
prt.format 10 FREE L RXM.PFORMS &HXE[hxe]F[gqb]L[ggn]PF[hxePQ]|0
Ì € i 2
rxm.proc.dict.rules (rules)
[mnemonic,facility,location, rule]
&HXE[hxe]F[gqb]L[ggn]R[hxr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rule 10 FREE L RXM.RULE hxr
Ì € i 2
rxm.proc.dict.performing.sites (sites)
[mnemonic,facility,location, site.q]
&HXE[hxe]F[gqb]L[ggn]S[hxeSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
site.q 3 PINT R hxeSQ
site 10 FREE L &HXE[hxe]F[gqb]L[ggn]S[hxeSQ]|0
site.billing.code 10 FREE L &HXE[hxe]F[gqb]L[ggn]S[hxeSQ]|1
site.is.default 1 YN L &HXE[hxe]F[gqb]L[ggn]S[hxeSQ]|2
Ì i 2
temp.proc.update.diagnoses (proc.update.diagnoses)
[proc.diag.code]
/TPROCU["DX",gsn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.diag.code 7 FREE L MIS.DIAG gsn
Ì i 2
temp.proc.update.locations (proc.update.locations)
[proc.location]
/TPROCU["L",ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.location 10 FREE L MIS.LOCN.DICT ggn
proc.checkout 1 YN L /TPROCU["L",ggn]LC|8
proc.confidential 1 YN L /TPROCU["L",ggn]LC|3
proc.destination 15 FREE L /TPROCU["L",ggn]LC|6
proc.dft.enforce.req 1 YN L /TPROCU["L",ggn]LC|11
proc.dft.order.period 10 FREE L RXM.ORD.PERIOD /TPROCU["L",ggn]LC|2
proc.modifier.screen 15 FREE L MIS.SCREEN /TPROCU["L",ggn]LC|1
proc.num.copies 2 PINT R /TPROCU["L",ggn]LC|7
proc.phy.enforce.req 1 YN L /TPROCU["L",ggn]LC|10
proc.phy.modifier.screen 15 FREE L MIS.SCREEN /TPROCU["L",ggn]LC|9
proc.prt.format 10 FREE L RXM.PFORMS /TPROCU["L",ggn]LC|5
proc.query.screen 15 FREE L MIS.SCREEN /TPROCU["L",ggn]LC|0
proc.rule 10 FREE L RXM.RULE /TPROCU["L",ggn]LC|4
Ì € i 2
temp.proc.update.sites (proc.update.sites)
[proc.location, proc.site.q]
/TPROCU["L",ggn]S[tpuSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.site.q 3 PINT R tpuSQ
proc.site 10 FREE L /TPROCU["L",ggn]S[tpuSQ]|0
proc.site.billing.code 10 FREE L /TPROCU["L",ggn]S[tpuSQ]|1
proc.site.is.default 1 YN L /TPROCU["L",ggn]S[tpuSQ]|2
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
rxm.proc.keyword.index [keyword,mnemonic]
keyword.x &HXEK[hxek,hxe]
rxm.proc.dict.location.index [location,mnemonic]
location.x &HXEL[ggn,hxe]
rxm.proc.oe.proc.index [oe.category,oe.procedure.mnemonic,facility,location,mnemonic] = oe.procedure
oe.proc.x &HXEO[pc,ppM,gqb,ggn,hxe]
rxm.proc.dict.type.index [order.type,mnemonic]
type.x &HXET[hxzt,hxe]
|
|
| | | | | | | | | | | | |